1 REM COPYRIGHTED BY MAURICE JONES, NOVEMBER  1996
2 NM$="BRASS RING":NN$="AMCGS":    DV=PEEK(186):IFDV<8THENDV=8
3 PRINT"[159][147]":POKE53280,0:POKE53281,0:POKE788,49:TQ=TI:POKE53371,0:MT=49152
4 SYS57812"AMCGS.A FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
12 OPEN2,DV,2,NM$+".OPTS,P,R":INPUT#2,K3,SD,SO,CC,SK
14 INPUT#2,BD,FB,MU,WG,PK,RD,KC,KC%(0):CLOSE2
17 GOSUB5500:POKE53265,27:ONMU+1GOTO500,482
18 :
19 REM BRANCHER
20 ONSD+1GOTO70,80
24 :
25 REM CHARGE
26 A$="251331421502421502":POKE53370,0
27 T=87:POKEF+6,96:POKEF+24,15
28 FORI=1TO18STEP3
29 POKEF+1,VAL(MID$(A$,I,2)):POKEF+4,33
30 FORJ=1TOT*VAL(MID$(A$,I+2,1)):NEXT
31 POKEF+4,0:NEXT:FORI=FTOF+24
32 POKEI,0:NEXT:POKE53371,0:RETURN
34 REM MENU BRANCHER
35 SYSMT:POKE53269,1
37 SYSMT+9:IFL2%THEN57
41 I=1:GETA$:IFA$=""THEN37
45 IFI>LEN(CH$)THEN37
49 IFA$=MID$(CH$,I,1)THEN59
53 I=I+1:GOTO45
57 IFCX%<X1+2ORCX%>X2-2ORCY%<Y1+3ORCY%>Y2-1THEN37
58 I=(CY%-(Y1)-1)/2
59 RETURN
63 :
64 REM PRINT AT
65 X=X(I):Y=Y(I)
66 POKE211,X:POKE214,Y:SYS58732:RETURN
68 :
69 REM KEYBORD BRANCHER
70 I=1:GETA$:IFA$=""THEN76
71 IFI>LEN(CH$)THEN70
72 IFA$=MID$(CH$,I,1)THENRETURN
73 I=I+1:GOTO71
76 IFJJ=NC-2THENJJ=-1
77 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO70
78 :
79 REM MOUSE BRANCHER
80 SYSMT+9:IFL2%=1ORR2%=1 THENI=RG%:RETURN
81 IFJJ=NC-2THENJJ=-1
82 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO 80
88 :
89 REM WRONG CHOICE SOUND
90 POKE53370,0:POKEF+24,15:POKEF+8,4:POKEF+12,63:POKEF+13,17:POKEF+11,33
91 FORI=1TO100:NEXT:POKEF+11,32
92 Y= 1:X= 0  :GOSUB66:PRINTWM$(WM);:FORI=1TO150:NEXT
93 POKE53371,0:RETURN
94 :
95 REM TONE & MESSAGE
96 POKE53370,0:POKEF+24,15:POKEF+5,4:POKEF+6,12
97 POKEF+4,23:POKEF+15,100:POKEF+4,20:POKEF+1,30:FORK=1TO350:NEXT:POKEF+6,0
98 POKEF+4,129:GOTO92
109 :
110 REM SPECIAL TURN FROM DECK  NOT A SUB
111 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
115 GOSUB270:ONPLGOTO119,640
119 IFT2>SF+3ORGF=SF+3THENWM=3:GOSUB90:GOTO534
120 T2=T2+4:GOTO620
121 :
122 REM AUTO
123 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
127 GOSUB270:ONPLGOTO141,131
131 FORK=C(FR)-1TO1STEP-1
133 IFFNS(B%(FR,K))<>FSTHEN139
135 IFFNV(B%(FR,K))<>FNV(B%(FR,K+1))+1THEN139
137 NEXTK
139 MM=K+1:GOTO1240
141 IFT2>SF+3ORGF=SF+3THENWM=3:GOSUB90:GOTO534
143 T2=T2+4:GOTO123
149 :
150 REM FILL EMPTY SPACES
151 IFFR<=2OR(C(0)=0ANDC(1)=0)THEN534
154 IFC(2)>0THEN164
155 IFC(1)>0THEN160
156 C(FR)=C(FR)+1:B%(FR,C(FR))=B%(0,C(0)):C(0)=C(0)-1:I=0:GOSUB250:GOSUB230
157 IFC(0)=0THENSYSMT+30,X(0),X(0)+3,Y(0),Y(0)+4,KT,SK
158 I=FR:GOSUB200:GOTO534
160 C(FR)=C(FR)+1:B%(FR,C(FR))=B%(1,C(1)):C(1)=C(1)-1:I=1:GOSUB200
162 GOTO158
164 C(FR)=C(FR)+1:B%(FR,C(FR))=B%(2,C(2)):C(2)=C(2)-1:I=2
165 IFC(2)=0THENI=2:GOSUB65: GOSUB224:GOSUB230:GOTO158
166 GOSUB250:GOSUB230: GOTO158
168 :
169 REM ERASES PILE I
170 IFKS(I)=2THEN174
172 MX=Y(I)+SP(I)*(MX(I)-1)+4:SYSMT+30,X(I),X(I)+3,Y(I),MX,KT,SK:GOTO177
174 MX=X(I)+SP(I)*(MX(I)-1)+3:SYSMT+30,X(I),MX,Y(I),Y(I)+4,KT,SK
177 RETURN
178 :
179 REM MAGIC :202 OTHER PLACE  203:ANY CARD
180 ONKS(I)GOTO181,190
181 X=X(I):Y=Y(I)+SP(I)*(C(I)-1)
182 IFY>Y(I)+SP(I)*(MX(I)-1)THENY=Y(I)+SP(I)*(MX(I)-1)
184 GOSUB66:GOTO202
190 Y=Y(I):X=X(I)+SP(I)*(C(I)-1)
192 IFX>X(I)+SP(I)*(MX(I)-1)THENX=X(I)+SP(I)*(MX(I)-1)
194 GOSUB66:GOTO202
200 X=X(I):Y=Y(I):GOSUB66:IFC(I)=0THENGOSUB170
202 CA=B%(I,C(I)):IFC(I)=0THEN224
203 POKE53370,0:IFSO=1THEN220
214 POKEF+1,50:POKEF+24,12:POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
220 PRINT"[146]";:PRINTST$(CA);:POKE53371,0:RETURN
224 SYSMT+30,X,X+3,Y,Y+4,KT,SK:RETURN
228 :
229 REM PRINT COUNT AT I
230 K=LEN(STR$(C(I))):SYSMT+30,X(I)-2,X(I)-1,Y(I)+3,Y(I)+3,KT,SK
234 IFC(I)=0THEN246
236 X=X(I)-K+1:Y=Y(I)+3
238 GOSUB66:PRINT"[156]"RIGHT$(STR$(C(I)),K-1):RETURN
244 GOSUB66:PRINT"[156]"RIGHT$(STR$(C(I)-1),K-1):RETURN
246 IFI=0ANDC(0)=0ANDRE<KDTHENSYSMT+36,7,255,15:RETURN
247 IFC(0)=0THEN  SYSMT+30,X(0),X(0)+3,Y(0),Y(0)+4,KT,SK:RETURN
248 : RETURN
249 REM PRINTS DECK AT I
250 PRINT"[146]":GOSUB65
252 POKE53370,0:IFSO=1THEN256
254 POKEF+1,50:POKEF+24,12:POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
256 POKE646,CC:PRINTBK$:SYSMT+30,X+1,X+2,Y+1,Y+3,KC%(KC),CC:POKE53371,0:RETURN
258 :
259 REM REDEAL
260 KD=FL(2):IFRD=0THENKD=FL(3)
261 IFRE= KDTHENWM=9:GOSUB90:RETURN
262 X=C(1):FORI=1TOX:B%(0,X)=B%(1,I):X=X-1:NEXT:C(0)=C(1):C(1)=0
263 I=1:GOSUB65:SYSMT+30,X,X+HT+2,Y,Y+4,KT,SK:I=0:GOSUB250:GOSUB230
264 IFHT=3THENRETURN
265 RE=RE+1
266 RETURN
268 :
269 WILL IT PLAY
270 PL=1:IFTS<>FSANDC(T2)>0THENRETURN
271 IF(T2<1ORT2=2)OR(T2>1ANDFV=0ANDT2<>SF+FS)THENRETURN
272 IFT2=1ANDFR=2THENRETURN
273 IFC(2)>0ANDT2=1ANDFS=TSAND(FV=TV+1ORFV=TV-1)THENPL=2:RETURN
274 IFT2=1THENRETURN
275 IFT2>  2ANDT2<SFTHENRETURN
276 FORI=0TO4:IFPL%(T2-SF ,I)=FRTHEN279
277 NEXT
278 RETURN
279 IFC(T2)=0ANDFV=0THENPL=2:RETURN
280 IFC(T2)>0ANDTC+1=FCTHENPL=2:RETURN
282 RETURN
288 :
289 REM PLAY FROM KLON TYPE WASTE
290 C(T2)=C(T2)+1:B%(T2,C(T2))=B%(FR,C(FR)):C(FR)=C(FR)-1:
291 Y=Y(1):X=X(1)+NT-1 :GOSUB66
292 SYSMT+30,X,X+3,Y,Y+4,KT,SK
294 NT=NT-1:IFNT<1THENNT=1
296 I=1:Y=Y(1):X=X(1)+NT-1:GOSUB66:GOSUB202
297 I=T2:GOSUB180:RETURN
298 :
299 REM PRINT STATS
300 X1=2:X2=15:Y1=8:Y2=19:CL=CC:GOSUB2100
302 X=X1+2:Y=Y1+2
306 GOSUB66:PRINT"[149]PLAYED";
307 X=X1+12-LEN(STR$(T6)):GOSUB66:PRINT"[144]"T6
308 X=X1+2:Y=Y+2:GOSUB66:PRINT"SPINS";
309 X=X1+12-LEN(STR$(PN)):GOSUB66:PRINT"[144]"PN
310 X=X1+2:Y=Y+1:GOSUB66:PRINT"SCORE";
311 X=X1+12-LEN(STR$(FS)):GOSUB66:PRINT"[144]"FS
312 X=X1+2:Y=Y+1:GOSUB66:PRINT"AVE. ";
313 X=X1+12-LEN(STR$(AVE)):GOSUB66:PRINT"[144]"AVE
316 X=X1+2:Y=Y+2:GOSUB66:PRINT"[156]GAMES";
317 X=X1+12-LEN(STR$(G7)):GOSUB66:PRINT"[144]"G7
320 X=X1+2:Y=Y+1:GOSUB66:PRINT"[156]WINS ";
321 X=X1+12-LEN(STR$(NW)):GOSUB66:PRINT"[144]"NW
326 RETURN
328 :
329 REM CLEAR MESSAGE
330 SYSMT+30,0,16,1,1,KT,SK
332 RETURN
366 :
367 REM DECLARE WIN
368 IFSO=0THENGOSUB26
370 NW=NW+1:WF=1
372 X1=21:X2=34:Y1=2:Y2=06:CL=2:GOSUB2300
374 Y=Y1+2:X=X1+3:GOSUB66:PRINT"YOUWIN ":RETURN
388 :
389 REM UPDATE STATS
390 G7=G7+1:T6=0:
391 FORI=SFTONP:T6=T6+C(I):NEXT
392 FS=T6-PN:G8=G8+FS:AV=INT(G8/G7+.5):IFT6<LOTHENLO=T6
394 IFT6>HITHENHI=T6
395 IFG7=1THENHI=T6:LO=T6
396 IFFS<37ORT6<52THEN399
397 NW=NW+1:IFSO=0THENGOSUB26
399 WF=0:RETURN
408 :
409 REM ALTERNATE HEADING
410 IFSD=1THENPOKE53269,1:RETURN
414 FORI=1TO20:GOSUB65:PRINT"[144][145]"MID$(SC$,I,1):NEXT
420 POKE53269,0: RETURN
438 :
439 REM SPREAD GRAPHICS
440 PRINT"[146]":IFK>36THEN442
441 X=1:Y=4:FORJ=1TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
442 X=1:Y=4:FORJ=1TO36:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:IFK>72THEN445
444 X=1:Y=10:FORJ=37TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
445 X=1:Y=10:FORJ=37TO72:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
446 X=1:Y=16:FORJ=73TOK :GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
447 RETURN
480 :
481 REM MENU OPENING
482 GOSUB5000
484 ONIGOTO500,486,488,39000
486 GOSUB5400:GOTO482
488 IFRD%(1)=0ANDRD%(2)=0THENWM=0:GOSUB330: GOSUB90:GOSUB5000:GOTO484
490 GOTO502
498 :
499 NEW GAME
500 FORI=1TONC:RD%(I) =S(I-1):NEXT:C(0)=NC:KD=FL(2):IFRD=0THENKD=FL(3)
502 SYSMT+42,216:FORI=1TONP:C(I)=0:NEXT
503 SYSMT:GOSUB410
504 FORI=1TONC:B%(0,I)=RD%(I):NEXT:C(0)=NC
506 FORJ=1TO13:I=2:C(I)=C(I)+1:B%(I,C(I))=B%(0,C(0)):C(0)=C(0)-1
510 SYSMT+30,X(2),X(2)+3,Y(2),Y(2)+4,KC%(KC),CC: GOSUB250: NEXT:   GOSUB230
512 FORI=LTTOGT:C(I)=C(I)+1:B%(I,C(I))=B%(0,C(0)):C(0)=C(0)-1:GOSUB200:NEXT
524 I=0:GOSUB250:GOSUB230:PN=0:XC=0:RE=0
532 FORK=0TONP:MM(K)=C(K):OO(K)=B%(K,1):NEXT: Z0=RE:SYSMT+39,144 :PP=PN
534 GOSUB330:PRINT"[146]";:WM=4
535 Y= 1:X=07-(LEN(WM$(WM)))/2:GOSUB66:PRINTWM$(WM);
537 CH$=FR$:POKEV+1,28  :GOSUB20:IFSD=1AND RG%=0THENWM=08:   GOSUB90:GOTO534
538 GOSUB330:IFI>6THEN544
540 ONIGOTO3000,1620,850,4004,4000,534
542 WF=1:X1=21:X2=34:
543 Y1=2:Y2=6:CL=2:GOSUB2300:Y=4:X=24:GOSUB66:PRINT"YOUWIN ":GOTO4000
544 FR=I-7  :XN=0:IFFR>GFTHEN900
545 IFFR>=SFANDFR<=SF+3THEN1900
548 IFRD=0THEN556
552 FORK=0TONP:MM(K)=C(K):OO(K)=B%(K,1):NEXT:Z0=RE:SYSMT+39,144 :PP=PN
556 IFR2%=1ORFR=0THEN568
560 IFC(FR)=0THEN WM=1:GOSUB90:GOTO534
564 GOTO600
568 IFC(0)=0ANDC(1)=0THENWM=1:GOSUB90:GOTO534
572 IFC(0)=0THENGOSUB260:GOTO534
576 C(1)=C(1)+1:B%(1,C(1))=B%(0,C(0)):C(0)=C(0)-1:I=1:GOSUB200
580 I=0:GOSUB230:GOTO534
600 GOSUB330:PRINT"[146]";:WM=5
601 Y= 1:X=07-(LEN(WM$(WM)))/2:GOSUB66:PRINTWM$(WM);
604 CH$=T2$:GOSUB20:GOSUB330:IFSD=1ANDRG%=0THENWM=8:GOSUB90:GOTO534
606 IFI>6THEN612
610 GOTO540
612 I=I-7:T2=I:IFKS(1)=3THENT2=T2+1
616 FC=B%(FR,C(FR)):FS=FNS(FC):FV=FNV(FC):IFT2>=SFTHENT2=SF+FS:GOTO111
618 IFT2=FRTHENT2=SF+FS:GOTO111
620 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
632 GOSUB270:ONPLGOTO636,640
634 WM=7:GOSUB90:GOTO534
636 WM=3:GOSUB90:GOTO534
640 REM     IFFL(1)=1ANDFR=1THENGOSUB290:GOTO680:GOTO534
642 MM=C(FR):GOTO1240
658 IFC(FR)=0ANDK(FR)>0THENGOSUB1100
660 IFKP(FR)>1THENGOTO672
662 FC=B%(FR,1):FV=FNV(FC):FS=FNS(FC)
667 IFFV=BVANDT2<SFTHEN634
668 IFTV=BVANDC(T2)>0 ANDT2<SFTHEN634
670 MM=1:GOSUB270:ONPLGOTO636,1240
672 IFC(FR)=1THENMM=1:GOTO662
673 IFSP(FR)*(C(FR))>SP(FR)*MX(FR)THENI=FR:GOTO1300
674 GOSUB1900
675 FC=B%(FR,MM):FV=FNV(FC):FS=FNS(FC):GOSUB270:ONPLGOTO636,690
678 :
679 REM WIN?
680 FORK=0TOSF-1:
681 IFC(K)=0THEN684
682 IFFL(6)=1ANDC(FR)=0THEN151
683 GOTO534
684 NEXT
685 IFPN<16THEN542
686 GOTO4000
688 :
689 REM WILL PLAY
690 IFMM=C(FR)ANDKS(FR)<>4THEN1240
692 IFKS(FR)<>4THEN700
694 GOSUB1900:FC=B%(FR,MM):FV=FNV(FC):FS=FNS(FC):IFT2>SF-1THENT2=SF+FS
695 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC):GOSUB270:ONPLGOTO696,697
696 WM=3:GOSUB90:GOTO534
697 C(T2)=C(T2)+1:B%(T2,C(T2))=FC:C(FR)=C(FR)-1:GOSUB750:I=T2
698 GOSUB180:GOTO680
700 IFKP(FR)=3THENGOSUB1850:IFWM=8THENGOSUB90:GOTO534
710 GOTO1240
748 :
749 REM PLAY FROM BOUQUET
750 C(FR)=C(FR)+1:KK=C(FR):IFC(FR)=1THEN774
751 PRINT"AT751"
752 K=0:FORJ=1TOKK
754 IFJ=MMTHEN762
758 K=K+1:B%(FR,K)=B%(FR,J)
762 NEXT
764 SYSMT+30,X(FR),X(FR)+3,Y(FR),Y(FR)+C(FR)+3,KT,SK:STOP
766 FORJ=1TOK:I=FR:C(FR)=J:GOSUB180:NEXT
770 RETURN
774 C(FR)=0:SYSMT+30,X(FR),X(FR)+3,Y(FR),Y(FR)+4,KT,SK:RETURN
848 :
849 REM PROMPT FOR SPREAD
850 REM IF RD=0THENRETURN
851 SYSMT+39,208:
852 GOSUB330:WM=6:GOSUB92
854 CH$=FR$:GOSUB20:GOSUB330:IFI<7THEN852
856 I=I-6:IFFL(1)<>3THENI=I-1
858 IFA$="D"THEN 900
862 IFC(I)=0THENWM=1:GOSUB90:GOTO534
864 IFI=0THENSYSMT+30,X(I),X(I)+3,Y(I),Y(I)+4,KT,SK:GOTO880
866 GOSUB170
870 IFK(I)>0THENGOSUB250
880 K=C(I):GOSUB440
882 SYSMT+30,0,39,00,00,100,BD:PRINT"[146]";:WM=2:IFSD=1THENWM=10
883 GOSUB92
884 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56320)=127THEN884
886 POKE198,0:SYSMT+42,208:GOTO534
898 :
899 REM SPIN  CW
900 IFR2%=1THEN552
904 IFRD=0THEN912
908 FORK=0TONP:MM(K)=C(K):OO(K)=B%(K,1):NEXT: Z0=RE:SYSMT+39,144 :PP=PN
912 ONFR-GFGOTO934,920
916 GOTO534
920 K=B%(LT,1):M=C(LT)  :FORI=LTTOGT-1:B%(I,1)=B%(I+1,1):C(I)=C(I+1):NEXT
922 B%(GT,1)=K:C(GT)=M
926 I=LT:GOSUB170:  FORI=GTTOLTSTEP-1  :GOSUB200:NEXT:GOTO950
929 REM SPIN CCW
934 K=B%(GT,1):M=C(GT)
938 FORI=GTTOLT+1STEP-1:B%(I,1)=B%(I-1,1):C(I)=C(I-1):NEXT
940 B%(LT,1)=K:C(LT)=M
944 I=LT:GOSUB170:FORI=LT+1TOGT:GOSUB200:NEXT:I=LT:GOSUB200
949 REMSPIN COUNT
950 PN=PN+1:GOSUB990
954 XN=1:GOTO534
959 :REM CLICK ON FOUNDATION
960 T2=I:TC=B%(T2,C(T2))
984 WM=3:GOSUB90:GOTO534
990 X=2     :Y=23:GOSUB66:PRINT"[144]"MID$(STR$(PN),LEN(STR$(PN))-1,2):RETURN
1098 :
1099 REM UP THE DOWN CARD
1100 B%(FR,1)=DN(FR,K(FR)):C(FR)=1:K(FR)=K(FR)-1:I=FR:GOSUB180
1110 K=LEN(STR$(K(I))):SYSMT+30,X(I)+3,X(I)+3,Y(I)-1,Y(I)-1,KT,SK
1114 IFK(I)=0THENRETURN
1118 X=X(I)+3:Y=Y(I)-1
1122 GOSUB66:PRINT"[156]"RIGHT$(STR$(K(I)),K-1):RETURN
1198 :
1199 REM PATCH ON]SUB850, RETURNS FROM HERE
1200 IFPK=1THENWM=9:GOSUB90:GOTO534
1204 SYSMT+30,X(LT),X(GT)+3,Y(LT),24,KT,SK:PRINT"[146]"
1208 FORI=LTTOGT
1212 X=X(I):Y=Y(I):IFK(I)=0THEN1220
1216 FORJ=1TOK(I):GOSUB66:CA=DN(I,J):GOSUB203:Y=Y+1:NEXT
1220 NEXT
1222 GOSUB330:PRINT"[146]";:WM=2:GOSUB92
1224 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56320)=127THEN1224
1228 SYSMT+42,208:GOTO534
1238 :
1239 REMPLAY SEQ
1240 K=C(FR):I=FR
1242 IFFL(1)=1ANDFR=1THENGOSUB290:GOTO534
1244 IFKS(I)=1THENX=X(I):IFMM>MX(I)THENY=Y(I)+SP(I)*(MX(I)-1):GOTO1270
1248 IFKS(I)=2THEN Y=Y(I):IFMM>MX(I)THENX=X(I)+SP(I)*(MX(I)-1):GOTO1270
1250 IFKS(FR)=2THEN1257
1254 MX=Y(I)+SP(I)*(MX(I)-1)+4:Y=Y(I)+SP(I)*(MM-1)
1255 SYSMT+30,X(I),X(I)+3,Y,MX,KT,SK
1256 GOTO1260
1257 MX=X(I)+SP(I)*(MX(I)-1)+3:X=X(I)+SP(I)*(MM-1)
1258 SYSMT+30,X,MX,Y(I),Y(I)+4,KT,SK
1260 IFMM=1ANDK(FR)>0THENI=FR:GOSUB250:GOTO1274
1262 IFMM=1THEN1274
1263 IFKS(FR)=2THEN1268
1266 Y=Y(FR)+SP(FR)*(MM-2):GOTO1270
1268 X=X(FR)+SP(FR)*(MM-2)
1270 GOSUB66:CA=B%(FR,MM-1):GOSUB203
1272 X1=MM:X2=K:X3=1:IFT2>=SFTHENX1=K:X2=MM:X3=-1
1274 FORJ=KTOMMSTEP-1:C(T2)=C(T2)+1:B%(T2,C(T2))=B%(FR,J):C(FR)=C(FR)-1
1278 I=T2:GOSUB180
1280 NEXT
1290 GOTO680
1292 C(T2)=C(T2)+1:B%(T2,C(T2))=B%(0,C(0)):C(0)=C(0)-1:I=T2:GOSUB200
1296 I=0:GOSUB230: GOTO680
1300 YUKON
1618 :
1619 REM OOPS
1620 IFRD=0THENWM=0:GOSUB90:GOTO534
1621 FORI=0TONP:C(I)=MM(I):B%(I,1)=OO(I):NEXT:SYSMT+42,144:PN=PP:GOSUB990
1622 RE=Z0:GOTO534
1848 :
1849 REM TEST FOR SEQ
1850 WM=-3:IFMM=C(FR)THENRETURN
1860 SP=T2
1864 FORJ=MMTOC(FR)-1:T2=FR:TC=B%(FR,J):FC=B%(FR,J+1)
1868 TS=FNS(TC):FS=FNS(FC):TV=FNV(TC):FV=FNV(FC)
1872 GOSUB270:ONPLGOTO1876,1880
1876 WM=8:T2=SP:RETURN
1880 NEXT
1890 T2=SP:RETURN
1900 T2=FR:
1901 IFRD=0THEN1904
1902 FORK=0TONP:MM(K)=C(K):OO(K)=B%(K,1):NEXT: Z0=RE:SYSMT+39,144 :PP=PN
1904 IFC(1)=0THEN1916
1906 FC=B%(1,C(1)):FR=1
1908 IFFNV(FC)=0ANDC(T2)=0ANDT2=SF+FNS(FC) THENMM=1:GOTO1240
1912 IFFC-1=B%(T2,C(T2))ANDC(T2)>0THENMM=1:GOTO1240
1916 FORJ=1TO4:FR=PL%(T2-SF,J):FC=B%(FR,C(FR)):
1920 IFC(T2)>0THEN1928
1924 IFFNV(FC)=0ANDT2=SF+FNS(FC)THENMM=1:GOTO1240
1926 GOTO1932
1928 IFFC-1=B%(T2,C(T2))THENMM=1:GOTO1240
1932 NEXT
1952 WM=3:GOSUB90:GOTO534
2088 :
2099 REM THIN WINDOW
2100 SYSMT+30,X1,X2,Y1,Y2,032,SK:SYSMT+30,X1,X2,Y1,Y1,115,CL
2104 SYSMT+30,X1,X1,Y1,Y2,099,CL:SYSMT+30,X2,X2,Y1,Y2,110,CL
2108 SYSMT+30,X1,X2,Y2,Y2,114,CL:SYSMT+30,X2,X2,Y1,Y1,113,CL
2112 SYSMT+30,X2,X2,Y2,Y2,224,CL:SYSMT+30,X1,X1,Y1,Y1,117,CL
2116 SYSMT+30,X1,X1,Y2,Y2,116,CL
2120 RETURN
2298 :
2299 REM THICK WINDOW
2300 SYSMT+30,X1,X2,Y1,Y2,032,SK:SYSMT+30,X1,X2,Y1,Y1,35,CL
2304 SYSMT+30,X1,X1,Y1,Y2,106,CL:SYSMT+30,X2,X2,Y1,Y2,107,CL
2308 SYSMT+30,X1,X2,Y2,Y2,042,CL:SYSMT+30,X2,X2,Y1,Y1,036,CL
2312 SYSMT+30,X2,X2,Y2,Y2,043,CL:SYSMT+30,X1,X1,Y1,Y1,033,CL
2316 SYSMT+30,X1,X1,Y2,Y2,028,CL
2320 RETURN
2998 :
2999 REM HELP
3000 SYSMT+39,208:PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
3004 IFA8=1THEN3014
3010 SYSMT+54,"T."+NM$+" HELP",DV,57344:A8=1
3011 POKEPEEK(174)+256*PEEK(175),0
3014 SYSMT+63,3,3,3,3,57344,HP$
3020 PRINT"[147]":POKE53272,19:SYSMT+42,208:    GOTO534
3998 :
3999 REM QUIT
4000 GOSUB390:GOSUB300
4004 SYSMT+30,0,39,00,00,101,BD:PRINT"[146]";:GOSUB5000:ONIGOTO500,4134,488,39000
4134 GOSUB5400:GOSUB5000:ONIGOTO500,486,488,39000
4998 :
4999 REM MENU
5000 X1=21:X2=34:Y1=9:Y2=19:CL=CC:GOSUB2100
5100 X=X1+2:Y=Y1+2:GOSUB66:PRINT"1[146] PLAY
5104 Y[178]Y[170]2:[141]66:[153]"2WAIT OPTIONS
5106 Y=Y+2:GOSUB66:PRINT"3[146] REPLAY
5108 Y[178]Y[170]2:[141]66:[153]"4WAIT LOADSTAR
5109 SYSMT+21,25,11
5110 REM
5112 Y1=8:POKE53269,1:CH$="1234":GOSUB35:RETURN
5198 :
5199 REM OPTIONS MENU
5200 SYSMT+39,208:PRINT"[147]":POKE53265,11:POKE53272,19:POKE53280,BD:POKE53281,1
5204 SYSMT+30,0,39,0,24,KT,SK
5206 X1=3:X2=20:Y1=6:Y2=21:CL=SK:GOSUB2100:POKE646,6:POKEV+2,132
5208 X=X1+2:Y=Y1+1:GOSUB66:PRINT"[144]   OPTIONS"
5240 Y=Y+2:X=X:GOSUB66:PRINT"1 DECK COLOR
5244 Y[178]Y[170]2:[141]66:[153]"2 TILE COLOR
5248 Y=Y+2:GOSUB66:PRINT"3 BORDER COLOR
5252 Y[178]Y[170]2:[141]66:[153]"4 TILE STYLE
5254 Y=Y+2:GOSUB66:PRINT"5 DECK STYLE
5256 Y[178]Y[170]2:[141]66:[153]"6 MAIN MENU
5262 SYSMT+30,21,36,7,19,KT,SK
5263 POKE53265,27
5264 Y=11:X=29:GOSUB66:CA=35:GOSUB203:X=31:GOSUB66:CA=11:GOSUB203
5266 X=23:Y=11:GOSUB66:GOSUB256
5270 REM
5271 REM
5272 REM
5273 CH$="123456":GOSUB35
5274 ONIGOTO5310,5320,5330,5340,5362, 5394
5280 MU=1-MU:X=X3:Y=Y3:GOSUB66:PRINTO$(7+MU):GOTO5444
5310 MD=16:CC=FNC(CC):IFCC=1THENCC=2
5314 GOTO5266
5320 MD=16:SK=FNC(SK):SYSMT+60,KT,KT,SK:GOTO5270
5330 MD=16:BD=FNC(BD):POKE53280,BD:GOTO5270
5340 U2=K3:K3=K3+1:K=KT:IFK3>=6THENK3=1
5342 KT=TT%(K3):SYSMT+60,K,KT,128
5346 GOTO5270
5362 MD=4:KC=FNC(KC)
5366 GOTO5266
5394 GOSUB6400:RETURN
5398 :
5399 REM MAIN OPTIONS
5400 SYSMT+30,0,39,0,24,KT,SK
5404 X1=09:X2=30:Y1=4:Y2=21:CL=SK:GOSUB2300:X3=X1+14:Y3=Y1+4
5408 X=X1+2:Y=Y1+2:GOSUB66:PRINT"[144]     OPTIONS"
5412 Y=Y+2:GOSUB66:PRINT"1 OPENING   [144]"O$(7+MU)
5416 Y=Y+2:GOSUB66:PRINT"2 SOUND     [144]"O$(SO)
5428 Y=Y+2:GOSUB66:PRINT"3 VARIATION [144]"O$(RD)
5430 REM Y=Y+2:GOSUB66:PRINT"3 CHALLENGE [144]"O$(RD)
5432 Y=Y+2:GOSUB66:PRINT"4 KEYBOARD  "O$(SD)
5436 Y=Y+2:GOSUB66:PRINT"5 GRAPHICS     "
5438 Y=Y+2:GOSUB66:PRINT"6 MAIN MENU    "
5444 REM
5446 REM
5447 Y1=5:Y2=20:CH$="123456":GOSUB35
5448 ONIGOTO5280,5460,5470,5450,5200,5482
5450 SD=SD+1:IFSD=2THENSD=0
5452 GOTO5456
5454 POKE53269,0:X=X1+2:Y=Y3+6:GOSUB66:PRINT"4 KEYBOARD"
5456 X=X3:Y=Y3+6:GOSUB66:PRINT"[144]"O$(SD):GOTO5444
5460 SO=1-SO:X=X3:Y=Y3+2:GOSUB66:PRINT"[144]"O$(SO):GOTO5444
5470 RD=1-RD
5474 X=X3:Y=Y3+4:GOSUB66:PRINT"[144]"O$(RD)
5479 GOTO5444
5482 SYSMT+42,216:RETURN
5498 :
5499 REM SETUP
5500 DIMI,X,Y,Y1,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,V,U2,TT,T6,T,SO,S,O$,NW,MT,PP
5510 DIMMM,MD,LO,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,CL,CA,B,AV,A8,BV,SF,GF,LT,GT
5520 DIMJ,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,KK,NT,RE,T3,T4,M,HT,A,MX,SP,Z0,XC
5524 DIMPX%,PY%,CX%,CY%,L1%,R1%,L2%,R2%,SC%,CC%,PP%,RG%,CR%
5530 NC=52:NP=22:G7=0:JJ=-1
5540 CM$="[144][163]HELP [146][163]OOPS[146] [163]SPREAD [146][163]CLAIM [146][163]ABORT [146][163]QUIT[146][174]"
5550 BS$(1)="[158][194]ROKEN ROMANCE
5560 BS$(2)[178]"SYS(null)TATED FULLY
5570 BS$(3)="[158][211]HE WENT WILD
5580 BS$(4)[178]"SYS(null)HEN HE
5590 BS$(5)="[158][215]ENT WOOLY
5610 X[178]08:Y[178]8:[141]66:[153]BS$(1)
5614 [134]ST$(52),CO$(3),RD%(NC),S(NC),OP(13),WM$(10),MX(NP),SP(NP),CH(NC)
5618 CO$(0)[178]"STOP":CO$(1)[178]"":CO$(2)[178]""
5620 CO$(3)[178]"STOP":X[178][187]([171]TI)
5630 BK$[178]"!##$CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD\**+CMDCMDCMDCMDONONONON":[151]4095,31
5634 TR$[178]"CLOSECMDCLOSECMDCLOSE"
5640 [150][165]S(X)[178][181](X[173]13):[150][165]V(X)[178]X[171]13[172][181](X[173]13):[150][165]C(X)[178](X[170]1)[171]MD[172][181]((X[170]1)[173]M
5644 [150][165]C(X)[178](X[170]1)[171]MD[172][181]((X[170]1)[173]MD)
5650 F[178]54272:[129]I[178]F[164]F[170]24:[151]I,0:[130]
5660 [134]B%(NP,NC),C(NP),MM(NP[170]2),X(NP[170]1),Y(NP[170]1),KS(NP),K(NP)
5670 [134]KP(NP),XC(200),PL%(4,5),OO(NP)
5680 [129]I[178]3[164]07:[135]X(I),Y(I):[130]
5682 [131]20,7,20,1,25,1,30,1,35,1
5684 [129]I[178]8[164]20:[135]X(I),Y(I):[130]
5686 [131]35,7,35,13,35,19,30,19,25,19,20,19,20,13,25,7,30,7,25,13,30,13
5690 [131]17,2,17,20
5700 X(1)[178] 11:Y(1)[178]12:X(0)[178] 11:Y(0)[178]Y(1)[170]6: X(2)[178]X(1):Y(2)[178]Y(1)[171]6
5720 FR$[178]"INPUTDIMREADRUNIF% Q1W2345TGBVCXSERDFAZ"   :T2$[178]FR$
5725 SC$[178]"Q1W2345TGBVCXSERDFAZ":SP$[178]" Q1W2345TGBVCXSERDF"
5727 [129]I[178]0[164]3:[129]K[178]0[164]4:[135]PL%(I,K):[130]:[130]
5729 [131]1,3,5,12,8,  1,  3,6,8,11,  1,  14,5,9,12,   1,  14,6,11,9
5730 HP$[178]"SYS        PEEK(null)ATN(null)(null)CLOSECLOSE(null)RIGHT$(null)CHR$  "
5742 MX(1)[178]1: MX[178]1:SP[178]0:MX(2)[178]1:
5750 [135] SF,GF,BV,LT,GT,HT
5752 [131] 15,18,00,03,14,01
5754 [129]I[178]1[164]6:[135]FL(I):[130]
5756 [131] 1,  1,  1,  1,1,  1
5760 [129]I[178] 2[164]GT:KS(I)[178]1:KP(I)[178]0:MX(I)[178]MX:SP(I)[178]SP :[130]
5770 [129]I[178]SF[164]GF:KS(I)[178]1:KP(I)[178]0:MX(I)[178]1 :SP(I)[178]0 :[130] :KP(0)[178]0:KP(1)[178]3
5774 X[178]08:Y[178]10:[141]66:[153]BS$(2)
5776 X[178]08:Y[178]12:[141]66:[153]BS$(3)
5778 X[178]08:Y[178]14:[141]66:[153]BS$(4)
5780 [129]I[178]0[164]51:S(I)[178]I:[130]
5783 X[178]8:Y[178]16:[141]66:[153]BS$(5)
5784 [153]"--PEEKURMA (null)HAVE
5800 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP
5810 IFJJ<>NC-2THEN5800
5820 KC%(1)= 37:KC%(2)=(47):KC%(3)=124:KC%(0)=191:
5830 O$(0)="[144]ON ":O$(1)="[144]OFF":O$(3)="[144]ONE  ":O$(4)="[144]THREE"
5840 O$(8)="[144]MENU":O$(7)="[144]GAME"
5850 TT%(1)=0:TT%(2)=100:TT%(3)=128:TT%(4)=155:TT%(5)=101
5860 LO=1000:HI=0:KT=TT%(K3)
5870 WM$(1)="[156]  EMPTY PILE   "
5880 WM$(2)="[156] ANY KEY BUT RESTORE "
5890 WM$(3)="[156]  ILLEGAL PLAY  "
5900 WM$(4)="[156] FROM "
5910 WM$(5)="[156]  TO  "
5920 WM$(6)="[156] WHICH "
5930 WM$(7)="[156] BASE CARD "
5940 WM$(9)="[156] NO REDEAL "
5950 WM$(8)="[156] NOT A CHOICE "
5960 WM$(0)="[156]  NO OOPS   "
5970 WM$(10)="[156] PRESS FIRE "
5980 V=MT+117:POKEV,138:SYSMT+6:SYSMT+18,0,38,0,23:POKE53287,4:POKE53269,0
5981 X1=0:IFFL(1)=3THENX1=1
5982 FORI=X1TONP:IFKS(I)=2THEN5986
5984 SYSMT+15,I+7-X1,X(I),X(I)+3,Y(I),Y(I)+SP(I)*(MX(I)-1)+4:GOTO5987
5986 SYSMT+15,I+7-X1,X(I),X(I)+SP(I)*(MX(I)-1)+3,Y(I),Y(I)+4
5987 NEXT
5988 SYSMT+15,1,00,06,4,5
5989 SYSMT+15,2,00,06,7,08:SYSMT+15,3,00,06,10,11
5990 SYSMT+15,4,00,06,13,14 :SYSMT+15,5,00,06,16,17
5991 SYSMT+15,6 ,0,06,19,20
5993 SYSMT+15,26,17,18,2,4 :SYSMT+15,27,17,18,20,22:POKEV+1,27
6000 ST$(1)="[144][203][215][216][146][177][157][157][157][157][162]  [174][157][157][157][157][163]  [174][157][157][157][157][163]  [161][157][157][157][157][180][217][218][146][215]"
6004 ST$(0)="[144][216][157][162][157][163][157][163][157][180][178][178][204][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][179][179][157][157]  [157][157][211][212][146][157][157]  [157][157][178][178]"
6008 ST$(39)="[144][216][157][193][157][163][157][163][157][180][178][178][204][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157]![146][179][157][157]  [157][157][179][180][146][157][157]  [157][157][178][178]"
6012 ST$(9)="[144]&[157][162][157][163][157][163][157][180][182][182]'[145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157][195][196][157][157][197][198][157][157][199][200][157][157][201][202][146]"
6020 ST$(41)="[144][202][157][193][157][163][157][163][157][180][178][178][214][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157][183][184][157][157]  [157][157][179][180][157][157]  [157][157][185][186][146]"
6024 ST$(8)="[144][196][157][162][157][163][157][163][157][180][182][182][208][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157][203][204][157][157][205][206][157][157][207][208][157][157][201][202][146]"
6028 ST$(3)="[144][201][157][162][157][163][157][163][157][180][182][182][213][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157]  [157][157]  [157][157]  [157][157][201][202][146]"
6036 ST$(47)="[144][196][157][193][157][163][157][163][157][180][178][178][208][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157][171][172][157][157][173][174][157][157][175][176][157][157][169][170][146]"
6040 ST$(7)="[144][197][157][162][157][163][157][163][157][180][182][182][209][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157][211][212][157][157][209][210][157][157][213][214][157][157][201][202][146]"
6048 ST$(48)="[144]&[157][193][157][163][157][163][157][180][178][178]'[145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157][163][164][157][157][165][166][157][157][167][168][157][157][169][170][146]"
6052 ST$(46)="[144][197][157][193][157][163][157][163][157][180][178][178][209][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157][179][180][157][157][177][178][157][157][181][182][157][157][169][170][146]"
6060 ST$(40)="[144][203][157][193][157][163][157][163][157][180][178][178][215][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][183][184][157][157]  [157][157]  [157][157]  [157][157][185][186][146]"
6064 ST$(2)="[144][202][157][162][157][163][157][163][157][180][182][182][214][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][215][216][157][157]  [157][157][211][212][157][157]  [157][157][217][218][146]"
6072 ST$(6)="[144][198][157][162][157][163][157][163][157][180][182][182][210][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157][211][212][157][157][209][210][157][157]  [157][157][201][202][146]"
6076 ST$(45)="[144][198][157][193][157][163][157][163][157][180][178][178][210][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157][179][180][157][157][177][178][157][157]  [157][157][169][170][146]"
6084 ST$(42)="[144][201][157][193][157][163][157][163][157][180][178][178][213][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157]  [157][157]  [157][157]  [157][157][169][170][146]"
6088 ST$(5)="[144][199][157][162][157][163][157][163][157][180][182][182][211][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157]  [157][157][209][210][157][157]  [157][157][201][202][146]"
6096 ST$(44)="[144][199][157][193][157][163][157][163][157][180][178][178][211][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157]  [157][157][177][178][157][157]  [157][157][169][170][146]"
6100 ST$(4)="[144][200][157][162][157][163][157][163][157][180][182][182][212][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157][193][194][157][157]  [157][157][211][212][157][157]  [157][157][201][202][146]"
6108 ST$(43)="[144][200][157][193][157][163][157][163][157][180][178][178][212][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157][161][162][157][157]  [157][157][179][180][157][157]  [157][157][169][170][146]"
6120 ST$(35)="&[157][192][157][163][157][163][157][180][178][178]'[145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]CD[157][157]EF[157][157]GH[157][157]IJ"
6124 ST$(34)="[196][157][192][157][163][157][163][157][180][178][178][208][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]KL[157][157]MN[157][157]OP[157][157]IJ"
6132 ST$(33)="[197][157][192][157][163][157][163][157][180][178][178][209][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]ST[157][157]QR[157][157]UV[157][157]IJ"
6136 ST$(32)="[198][157][192][157][163][157][163][157][180][178][178][210][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]ST[157][157]QR[157][157]  [157][157]IJ"
6144 ST$(31)="[199][157][192][157][163][157][163][157][180][178][178][211][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]  [157][157]QR[157][157]  [157][157]IJ"
6148 ST$(30)="[200][157][192][157][163][157][163][157][180][178][178][212][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]  [157][157]ST[157][157]  [157][157]IJ"
6152 ST$(29)="[201][157][192][157][163][157][163][157][180][178][178][213][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]AB[157][157]  [157][157]  [157][157]  [157][157]IJ"
6156 ST$(28)="[202][157][192][157][163][157][163][157][180][178][178][214][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]WX[157][157]  [157][157]ST[157][157]  [157][157]YZ"
6160 ST$(27)="[203][157][192][157][163][157][163][157][180][178][178][215][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]WX[157][157]  [157][157]  [157][157]  [157][157]YZ"
6164 ST$(26)="[216][157][192][157][163][157][163][157][180][178][178][204][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]![146][179][157][157]  [157][157]ST[157][157]  [157][157][178][178]"
6168 ST$(36)="[195][157][192][157][163][157][163][157][180][178][178][207][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157])[146]1[157][157]23[157][157]45[157][157]67[157][157]89"
6172 ST$(49)="[144][195][157][193][157][163][157][163][157][180][178][178][207][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157])[146]1[157][157]23[157][157]45[157][157]67[157][157]89"
6180 ST$(22)="&[157][173][157][163][157][163][157][180][182][182]'[145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157][187][188][157][157][223][191][157][157][189][190][157][157][221][255][146]"
6192 ST$(21)="[196][157][173][157][163][157][163][157][180][182][182][208][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]#$[157][157]%&[157][157]*+[157][157][221][255][146]"
6204 ST$(19)="[198][157][173][157][163][157][163][157][180][182][182][210][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]\^[157][157]<>[157][157]  [157][157][221][255][146]"
6216 ST$(18)="[199][157][173][157][163][157][163][157][180][182][182][211][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]  [157][157]<>[157][157]  [157][157][221][255][146]"
6220 ST$(16)="[201][157][173][157][163][157][163][157][180][182][182][213][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]  [157][157]  [157][157]  [157][157][221][255][146]"
6228 ST$(17)="[200][157][173][157][163][157][163][157][180][182][182][212][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]  [157][157]\^[157][157]  [157][157][221][255][146]"
6240 ST$(20)="[197][157][173][157][163][157][163][157][180][182][182][209][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][219][220][157][157]\^[157][157]<>[157][157]_=[157][157][221][255][146]"
6252 ST$(14)="[203][157][173][157][163][157][163][157][180][182][182][215][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][166][167][157][157]  [157][157]  [157][157]  [157][157][168][169]"
6256 ST$(15)="[202][157][173][157][163][157][163][157][180][182][182][214][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][166][167][157][157]  [157][157]\^[146][157][157]  [157][157][146][168][169]"
6264 ST$(13)="[216][157][173][157][163][157][163][157][180][182][182][204][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157][179][179][157][157]  [157][157]\^[146][157][157]  [157][157][178][178]"
6276 ST$(11)="[144][194][157][162][157][163][157][163][157][180][182][182][206][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157]()[157][157]>?[157][157]45[157][157]<=[157][157]:;"
6280 ST$(24)="[194][157][173][157][163][157][163][157][180][182][182][206][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157]()[157][157]>?[157][157]45[157][157]<=[157][157]:;"
6288 ST$(10)="[144][195][157][162][157][163][157][163][157][180][182][182][207][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157]()[157][157]^_[157][157]45[157][157][][157][157]:;"
6300 ST$(23)="[195][157][173][157][163][157][163][157][180][182][182][207][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157]()[157][157]^_[157][157]45[157][157][][157][157]:;"
6312 ST$(25)="[217][157][173][157][163][157][163][157][180][182][182][205][145][157][218][145][157][174][145][157][174][145][157][177][157][157][157]01[157][157]23[157][157]45[157][157]67[157][157]89"
6324 ST$(12)="[144][217][157][162][157][163][157][163][157][180][182][182][205][145][157][161][145][157][174][145][157][174][145][157][177][157][157][157]()[157][157]^_[157][157]45[157][157][][157][157]:;"
6336 ST$(38)="[217][157][192][157][163][157][163][157][180][178][178][205][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]([146])[157][157]^_[157][157]45[157][157][][157][157]:;"
6340 ST$(51)="[144][217][157][193][157][163][157][163][157][180][178][178][205][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157]([146])[157][157]^_[157][157]45[157][157][][157][157]:;"
6348 ST$(37)="[194][157][192][157][163][157][163][157][180][178][178][206][145][157][223][145][157][174][145][157][174][145][157][177][157][157][157]([146])[157][157]>?[157][157]45[157][157]<=[157][157]:;"
6352 ST$(50)="[144][194][157][193][157][163][157][163][157][180][178][178][206][145][157][176][145][157][174][145][157][174][145][157][177][157][157][157]([146])[157][157]>?[157][157]45[157][157]<=[157][157]:;"
6354 IFTI<TQ+300THEN6354
6356 POKE788,52
6400 PRINT"[147]": POKE53265,11
6402 SYSMT:IFSD=0THENPOKE53269,0
6404 POKE53281,1:POKE53280,BD:POKE53272,19:SYSMT+30,0,39,0,24,KT,SK
6406 J=SO:SO=1
6408 FORI=SFTOGF:CA=13*(I-SF):GOSUB65:GOSUB203:SYSMT+36,I+7,255, 15   :NEXT
6412 SO=J
6424 POKE646,SK:X=39:Y=1:GOSUB66:PRINT"/"
6426 X=X(19) :Y=Y(19)  :GOSUB66:PRINTTR$;:X=X+1:GOSUB66:PRINTTR$
6428 X= 17 :Y=Y(20) :GOSUB66:PRINTTR$;:X=X+1:GOSUB66:PRINTTR$
6432 X1=0:X2=6:Y1=3:Y2=19:GOSUB2100
6434 X1=0:X2=6:Y1=21:Y2=24:GOSUB2100
6436 Y1=3:X=X1+1:Y=Y1+1:GOSUB66:PRINT" F1"
6438 X=X1+1:Y=Y+1:GOSUB66:PRINT"[144]HELP"
6440 X=0:Y=Y+1:GOSUB66:POKE646,SK:  PRINT
6442 X=X1+1:Y=Y+1:GOSUB66:PRINT" F3"
6444 X=X1+1:Y=Y+1:GOSUB66:PRINT"[144]OOPS"
6448 X=X1+1:Y=Y+2:GOSUB66:PRINT" F5"
6450 X=X1+1:Y=Y+1:GOSUB66:PRINT"[144]PEEK"
6454 REMX=X1+1:Y=Y+2:GOSUB66:PRINT" F2"
6456 REMX=X1+1:Y=Y+1:GOSUB66:PRINT"[144]CLAIM"
6460 X=X1+1:Y=Y+2:GOSUB66:PRINT" F4"
6462 X=X1+1:Y=Y+1:GOSUB66:PRINT"[144]ABORT"
6466 X=X1+1:Y=Y+2:GOSUB66:PRINT" F6"
6468 X=X1+1:Y=Y+1:GOSUB66:PRINT"[144]QUIT"
6471 X=X1+1:Y=Y+5:GOSUB66:PRINT"SPINS
6499 [158]MT[170]39,216:[151]53265,27:[142]
10000 DV[178][194](186):F$[178]"BRASS RING":[159]15,DV,15,"S0:"[170]F$:[160]15:[148]F$,DV:[128]
38998 :
38999 [143] SAVE OPTS - RECONNECT
39000 [158]MT[170]3:[151]53269,0:[159]15,DV,15,"S0:"[170]NM$[170]".OPTS":[160]15
39005 [159]2,DV,2,NM$[170] ".OPTS,P,W"
39010 [152]2,K3:[152]2,SD:[152]2,SO:[152]2,CC:[152]2,SK
39020 [152]2,BD:[152]2,FB:[152]2,MU:[152]2,WG:[152]2,PK:[152]2,RD
39024 [152]2,KC:[152]2,KC%(0)
39030 [160]2
39998 :
39999 [143] RECONNECT
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]